home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: R-H-S
/
R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).zip
/
R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).adf
/
Champs
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1978-01-01
|
2KB
|
78 lines
SCREEN 1,320,240,5,1
WINDOW 1," Quizmaster V2.0 High-Scores",,0,1
PALETTE 31,0,0,0:PALETTE 30,0,0.6,0:PALETTE 29,0,0.9,0
PALETTE 28,0.7,0.7,0.7:PALETTE 27,1,1,1:PALETTE 19,0,0.3,0
PALETTE 23,1,0,0:PALETTE 24,0,0.5,0:PALETTE 25,0.2,0.2,1
PALETTE 26,1,1,0:PALETTE 21,1,0,1:PALETTE 22,0.65,0,0.65
OPEN "df0:Data/QM.bob Farben" FOR INPUT AS #1
INPUT#1,Planes
FOR i=1 TO 2^Planes
INPUT#1,a:INPUT#1,b:INPUT#1,c
PALETTE i-1,a/256,b/256,c/256
PALETTE 1,0,0,0
NEXT i
CLOSE 1
OPEN "df0:Data/QM.bob" FOR INPUT AS 1
OBJECT.SHAPE 1,INPUT$(LOF(1),1)
CLOSE 1
OBJECT.PLANES 1,2^Planes-1,0
OBJECT.X 1,180:OBJECT.Y 1,60
GOSUB Loop
OPEN "df0:Data/QM.high" FOR INPUT AS 1
FOR i=1 TO 4:INPUT #1,high(i):NEXT i:CLOSE 1
OPEN "df0:Data/QM.namen" FOR INPUT AS 1
FOR i=1 TO 4:INPUT #1,namen$(i):NEXT i:CLOSE 1
LINE (0,1)-(320,5),31,b:LINE (0,2)-(320,4),30,b
LINE (0,3)-(320,3),29
LOCATE 2,14:COLOR 28:PRINT "Hall ";:COLOR 27
PRINT "of ";:COLOR 28:PRINT "Fame"
LINE (0,18)-(320,22),19,b:LINE (0,19)-(320,21),30,b
LINE (0,20)-(320,20),29
LOCATE 12,1:COLOR 23:PRINT "1) "namen$(1)
LOCATE 14,1:COLOR 24:PRINT "2) "namen$(2)
LOCATE 16,1:COLOR 25:PRINT "3) "namen$(3)
LOCATE 18,1:COLOR 26:PRINT "4) "namen$(4)
COLOR 27
LOCATE 12,3:PRINT high(1)
LOCATE 14,3:PRINT high(2)
LOCATE 16,3:PRINT high(3)
LOCATE 18,3:PRINT high(4)
LINE (0,98)-(150,100),22,b:LINE (0,99)-(150,99),21
LINE (0,114)-(150,116),22,b:LINE (0,115)-(150,115),21
LINE (0,130)-(150,132),22,b:LINE (0,131)-(150,131),21
OBJECT.ON 1
LOCATE 4:COLOR 0:INPUT a
OBJECT.OFF 1:CLS
PALETTE 1,1,1,1:PALETTE 0,0,0,0.4:PRINT:COLOR 1
PRINT " Ende.":PRINT
END
Loop:
LOCATE 5,14:PALETTE 20,0,0,0:COLOR 20
PRINT "Und nun..."
FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
FOR i=1 TO 1000:NEXT i
FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
LOCATE 5,14:PRINT " "
LOCATE 5,1:PRINT "...die Elite der QUIZMASTER-Spieler..."
FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
FOR i=1 TO 3000:NEXT i
FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
LOCATE 5,1:PRINT " "
LOCATE 5,2:PRINT "...Später [RETURN] zum Fortfahren..."
FOR i=0 TO 1 STEP+0.015:PALETTE 20,i,i,i:NEXT i
FOR i=1 TO 2000:NEXT i
FOR i=1 TO 0 STEP-0.015:PALETTE 20,i,i,i:NEXT i
LOCATE 5,2:PRINT " "
LOCATE 5,6:PRINT "··· DIE ABSOLUTE ELITE ···"
FOR i=0 TO 0.9 STEP+0.015:PALETTE 20,i,i,i:NEXT i
RETURN